<%@ Language=VBScript %>
<SCRIPT id=DebugDirectives runat=server language=javascript>
// Set these to true to enable debugging or tracing
@set @debug=false
@set @trace=false
</SCRIPT>
<% ' VI 6.0 Scripting Object Model Enabled %>
<!--#include file="_ScriptLibrary/pm.asp"-->
<% if StartPageProcessing() Then Response.End() %>
<FORM name=thisForm METHOD=post>

<%
	SQL = request("SQL")
	PaginaDestino = request("Pagina")
	
	dim datos 
	
	dim perfil 
	dim pagina
	dim tamano
	dim total
	dim cadenaXML
	
'	cadenaXML = "si" 
	cadenaXML = request("XML" )
	document.form1.textbox1.value = cadenaXML
	
	'set datos = server.CreateObject ("Compdato.AccesoDatos")
	
	'set perfil = datos.CrearPerfil ("","","","M:\OBFIN\Basededatos\banacol.mdb", 1)
	
	'datos.EjecutarSQLXML perfil, "select * from consol", cadenaXML
	

	'if 0 = datos.EjecutarSQLXML (perfil, "select * from consol", cadenaXML) then
		'Response.Redirect Pagina & "?cadenaXML=" & cadenaXML
	'		Response.Write cadenaxml
	'else
	'	Response.Write "Fallo"
	'end if
	FORM1.submit()
	
'	set perfil = nothing
	
'	set datos = nothing 	
%>


<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="nueva2.asp" method=POST id=form1 name=form1><!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:B5F0E469-DC5F-11D0-9846-0000F8027CA0" height=19 id=Textbox1 
	style="HEIGHT: 19px; LEFT: 0px; TOP: 0px; WIDTH: 169px" width=169>
	<PARAM NAME="_ExtentX" VALUE="4471">
	<PARAM NAME="_ExtentY" VALUE="503">
	<PARAM NAME="id" VALUE="Textbox1">
	<PARAM NAME="ControlType" VALUE="0">
	<PARAM NAME="Lines" VALUE="3">
	<PARAM NAME="DataSource" VALUE="">
	<PARAM NAME="DataField" VALUE="">
	<PARAM NAME="Enabled" VALUE="-1">
	<PARAM NAME="Visible" VALUE="-1">
	<PARAM NAME="MaxChars" VALUE="20">
	<PARAM NAME="DisplayWidth" VALUE="28">
	<PARAM NAME="Platform" VALUE="256">
	<PARAM NAME="LocalPath" VALUE=""></OBJECT>
-->
<!--#INCLUDE FILE="_ScriptLibrary/TextBox.ASP"-->
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _initTextbox1()
{
	Textbox1.setStyle(TXT_TEXTBOX);
	Textbox1.setMaxLength(20);
	Textbox1.setColumnCount(28);
}
function _Textbox1_ctor()
{
	CreateTextbox('Textbox1', _initTextbox1, null);
}
</script>
<% Textbox1.display %>

<!--METADATA TYPE="DesignerControl" endspan-->
</FORM>
</BODY>
<% ' VI 6.0 Scripting Object Model Enabled %>
<% EndPageProcessing() %>
</FORM>
</HTML>
